install.packages("Amelia")
library(Amelia)
dataset<-read.csv("for_imputation.csv")
set.seed(123)
aout<-amelia(dataset, m=5, ts="YEAR_DATA", cs="COUNTRY_ID") 
write.amelia(obj=aout,file.stem="outdata")
